home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 Error Reporting.xpl < prev    next >
Text File  |  2004-03-01  |  1KB  |  36 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Microsoft Office\MS Office 2003\Common"
  5. "UIPATH 2"="Virtual Paranoia\Automatic Error Reporting"
  6. "NAME"="Office 2003 Error Reporting"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.01"
  9. "TEXT 1"="Enable Error Reporting for Office 2003"
  10. "DESCRIPTION 1"="When an application from Office 2003 crashes, it asks you if you would like to send an error report to Microsoft. Doing this may help the Office development team improve stability in future releases."
  11. "DESCRIPTION 2"="If you want to make sure that no data is sent to Microsoft through this feature, simply disable it."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=""
  16.  
  17. sV1="HKLM\Software\Policies\Microsoft\PCHealth\ErrorReporting\DW\DWNeverUpload"
  18.  
  19. SUB Plugin_Initialize  
  20.  i=RegReadValue(sV1)
  21.  if i<>1 then SetUIElement 1,true
  22. END SUB
  23.  
  24. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  25.  if GetUIElement(1)=true then 
  26.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  27.  else
  28.     Call RegWriteValue(sV1,1,2)
  29.  end if
  30.  
  31. END SUB
  32.  
  33. SUB Plugin_Terminate
  34. END SUB
  35.  
  36.